home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / forlib1.arc / PEAKPOKE.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-01-15  |  1.1 KB  |  52 lines
  1. DATA SEGMENT PUBLIC 'DATA'
  2. TITLE__ DB 'TITLE: PEAKPOKE FOR MS FORTRAN'
  3. COPY_R  DB '   (C) John R. Petrocelli'
  4.         DB '       Schenectady,NY    '
  5.         DB '       01/13/86          '
  6. DATA ENDS
  7. DGROUP GROUP DATA
  8. CODE   SEGMENT 'CODE'
  9.        ASSUME CS:CODE,DS:DGROUP,SS:DGROUP
  10. PUBLIC PEAK
  11. PEAK   PROC FAR
  12.        PUSH BP
  13.        PUSH AX
  14.        PUSH BX
  15.        MOV BP,SP
  16.        LES BX,DWORD PTR[BP+18]
  17.        MOV SI,[BX]
  18.        LES BX,DWORD PTR[BP+14]
  19.        MOV DI,[BX]
  20.        MOV ES,SI
  21.        MOV BX,DI
  22.        MOV AL,ES:[BX]
  23.        LES BX,DWORD PTR[BP+10]
  24.        MOV [BX],AL
  25.        POP BX
  26.        POP AX
  27.        POP BP
  28.        RET 12
  29.        PEAK   ENDP
  30. PUBLIC POKE
  31. POKE   PROC FAR
  32.        PUSH BP
  33.        PUSH AX
  34.        PUSH BX
  35.        MOV BP,SP
  36.        LES BX,DWORD PTR[BP+18]
  37.        MOV SI,[BX]
  38.        LES BX,DWORD PTR[BP+14]
  39.        MOV DI,[BX]
  40.        LES BX,DWORD PTR[BP+10]
  41.        MOV AL,[BX]
  42.        MOV ES,SI
  43.        MOV BX,DI
  44.        MOV ES:[BX],AL
  45.        POP BX
  46.        POP AX
  47.        POP BP
  48.        RET 12
  49.        POKE   ENDP
  50.        CODE ENDS
  51.        END
  52.